home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Magazin / Future-PD / Bombsquare / Install bombsquare < prev    next >
Text File  |  2000-05-16  |  3KB  |  167 lines
  1. ; Bombsquare Installer script
  2.  
  3. (if (= x 1) (welcome))
  4.  
  5. (onerror (FEHLER))
  6.  
  7. (procedure FEHLER
  8.     (message "Ein Fehler ist aufgetreten! Die Installation wird abgebrochen.")
  9.     (CLEANUP)
  10.     (exit)
  11. )
  12.  
  13. ; Stop InstallerFX !
  14. (procedure CLEANUP
  15.     (delete "t:bs")
  16.     (delete "t:bs.prefs")
  17.     (delete "t:VDLogo")
  18.     (delete "t:VDLogo.prefs")
  19.     (delete "t:Background")
  20.     (delete "t:Background.prefs")
  21.     (delete "ram:Bombsquare/gfx/#?")
  22.     (delete "ram:Bombsquare/gfx")
  23.     (delete "ram:Bombsquare/sfx/#?")
  24.     (delete "ram:Bombsquare/sfx")
  25.     (delete "ram:Bombsquare/InstallerFX/#?")
  26.     (delete "ram:Bombsquare/InstallerFX")
  27.     (delete "ram:Bombsquare/#?")
  28.     (delete "ram:Bombsquare")
  29.     (delete "ram:Bombsquare.info")
  30. ) ; CLEANUP
  31.  
  32. (set @user-level 0)
  33.  
  34. ;(set Opt 3)
  35. (complete 0)
  36.  
  37. (copyfiles
  38.    (source "InstallerFX/stars")
  39.    (dest "t:")
  40.    (nogauge)
  41.    (newname "Background")
  42. )
  43.  
  44. (copyfiles
  45.    (source "InstallerFX/Background.prefs")
  46.    (nogauge)
  47.    (dest "t:")
  48.    (newname "Background.prefs")
  49. )
  50. (complete 5)
  51.  
  52. (copyfiles
  53.    (source "InstallerFX/vdlogo")
  54.    (nogauge)
  55.    (dest "t:")
  56.    (newname "VDLogo")
  57. )
  58.  
  59. (copyfiles
  60.    (source "InstallerFX/vdlogo.prefs")
  61.    (nogauge)
  62.    (dest "t:")
  63.    (newname "VDLogo.prefs")
  64. )
  65. (complete 5)
  66.  
  67. (copyfiles
  68.    (source "InstallerFX/bs")
  69.    (nogauge)
  70.    (dest "t:")
  71.    (newname "bs")
  72. )
  73.  
  74. (copyfiles
  75.    (source "InstallerFX/bs.prefs")
  76.    (nogauge)
  77.    (dest "t:")
  78.    (newname "bs.prefs")
  79. )
  80.  
  81. (complete 10)
  82.  
  83. (run "run InstallerFX/InstallerFX t:Background")
  84.  
  85. (set @user-level 2)
  86.  
  87. (run "wait 3")
  88. ; Waiting for InstallerFX to finished Background Picture!
  89. (complete 15)
  90.  
  91. (run "run InstallerFX/InstallerFX t:VDlogo")
  92.  
  93. (run "wait 2")
  94.  
  95. (run "run InstallerFX/InstallerFX t:bs")
  96. (complete 20)
  97.  
  98. (welcome "Willkommen zu Bombsquare !")
  99.  
  100. (
  101.      (set bs_dest
  102.         (tackon
  103.         (askdir
  104.         (prompt "Wohin soll Bombsquare installiert werden (eine Schublade wird erstellt) ?")
  105.         (help @askdir-help)
  106.         (default @default-dest)
  107.         )"Bombsquare")
  108. )
  109. )
  110.  
  111. (complete 30)
  112.  
  113. (run "wait 1")
  114. (run "/lha x Bombsquare.lha ram:")
  115.  
  116. (complete 50)
  117.  
  118. (copyfiles
  119.   (source "ram:Bombsquare/")
  120.   (dest bs_dest)
  121.   (pattern "Bomb#?")
  122.   (infos)
  123.   (files)
  124. )
  125.  
  126. (copyfiles
  127.   (source "ram:Bombsquare/")
  128.   (dest bs_dest)
  129.   (pattern "his#?")
  130.   (infos)
  131.   (files)
  132. )
  133.  
  134. (complete 60)
  135.  
  136. (set gfx_dest (tackon bs_dest "gfx"))
  137. (makedir gfx_dest(infos))
  138. (copyfiles
  139.   (source "ram:Bombsquare/gfx/")
  140.   (dest gfx_dest)
  141.   (pattern "#?")
  142.   (infos)
  143.   (files)
  144. )
  145. (complete 80)
  146.  
  147. (set sfx_dest (tackon bs_dest "sfx"))
  148. (makedir sfx_dest)
  149. (copyfiles
  150.   (source "ram:Bombsquare/sfx/")
  151.   (dest sfx_dest)
  152.   (pattern "#?")
  153.   (infos)
  154.   (files)
  155. )
  156. (complete 95)
  157.  
  158. (set delfile (tackon bs_dest "gfx.info"))
  159. (delete delfile)
  160.  
  161. (set delfile (tackon bs_dest "sfx.info"))
  162. (delete delfile)
  163.  
  164. (complete 100)
  165. (CLEANUP)
  166. (exit)
  167.